home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / load addr change (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  397b  |  12 lines
  1. 1000 rem change load address of file
  2. 1010 input"filename>";fs$
  3. 1020 print:input "new load address>";na
  4. 1030 open 2,8,0,fs$:close2:open 15,8,15:print#15,"m-r";chr$(144);chr$(2)
  5. 1040 get#15,s$:print#15,"m-r";chr$(147);chr$(2);chr$(2):get#15,t$,b$
  6. 1050 open 2,8,2,"#":print#15,"u1 2 0";asc(t$);asc(s$)
  7. 1060 print#15,"b-p 2";asc(b$):get#2,f$,t$,s$
  8. 1070 print#15,"u1 2 0";asc(t$);asc(s$):print#15,"b-p 2 2"
  9. 1080 hi=int(na/256):lo=na-hi*256
  10. 1090 print#2,chr$(lo);chr$(hi);:print#15,"u2 2 0";asc(t$);asc(s$)
  11. 1100 close2: close15
  12.